(functionp): New function.

diff --git a/lisp/subr.el b/lisp/subr.el
index a498cea5b37f3b35c959923a6607ab5ac93ed772..656f02a1b304acf4b17616903e6144539c23e136 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -973,6 +973,12 @@ configuration."
   (and (consp object)
        (eq (car object) 'frame-configuration)))
 
+(defun functionp (object)
+  "Non-nil of OBJECT is a type of object that can be called as a function."
+  (or (subrp object) (compiled-function-p object)
+      (eq (car-safe object) 'lambda)
+      (and (symbolp object) (fboundp object))))
+
 ;; now in fns.c
 ;(defun nth (n list)
 ;  "Returns the Nth element of LIST.